unit darea;

{$mode Delphi}

interface

uses
    Classes, SysUtils, Forms, Controls, Graphics, ExtCtrls,
    Grids, Menus, da_point;

type

	TDArea = class
	private
		ar: TImage;
	public
		Constructor new(ar_o: TImage);
		procedure clear();
	end;

implementation

procedure TDArea.clear();
begin
	with ar.Canvas do
	begin
		Pen.Color := clGray;
		Brush.Color := clWhite;
		Rectangle(0, 0, ar.Width, ar.Height);
	end;
end;

Constructor TDArea.new(ar_o: TImage);
begin
	ar := ar_o;
end;

end.

